Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/Demos/Herois/Codigo.Cst/00198_MM Jurassic Frame 2.ls

Text File | 1999-03-19 | 1.7 KB | 71 lines

on exitFrame
  go the frame
end

on idle
  global gMustUpdate, mudouCursor, tipoCursor
  set gMustUpdate = false
  sendAllSprites(#idleSprite)

  set y = the mouseV
  set v = 0
  if y >= 297 and y < 347 then
    set v = (y - 297) * (96 - 16) / 50 + 16
  else if y > 112 and y <= 162 then
    set v = (162 - y) * (96 - 16) / 50 + 16
    set v = -v
  end if
  global gJurFora
  if v <> 0 then
    global gJurUltimo
    if gJurFora then
      set gJurFora = false
      set gJurUltimo = the timer
      return
    end if
    global gJurassicScroll, gJurMax
    set d = v * (the timer - gJurUltimo) / 60
    if gJurassicScroll + d < 224 then set d = 224 - gJurassicScroll
    else if gJurassicScroll + d > gJurMax then
      set d = gJurMax - gJurassicScroll
    end if
    if d = 0 then
      if mudouCursor then
        cursor -1
        set mudouCursor = false
        set gMustUpdate = true
      end if
      return
    end if
    set gJurUltimo = the timer
    set tmp = gJurassicScroll
    jurassicScroll gJurassicScroll + d
    if tmp <> gJurassicScroll then
      if d > 0 then
        cursor [the number of member ("CursorBaixo" & tipoCursor),¬
            the number of member "CursorMask"]
      else
        cursor [the number of member ("CursorCima" & tipoCursor),¬
            the number of member "CursorMask"]
      end if
      set tipoCursor = 3 - tipoCursor
      set mudouCursor = true
      set gMustUpdate = true
    else
      if mudouCursor then
        cursor -1
        set mudouCursor = false
        set gMustUpdate = true
      end if
    end if
  else
    set gJurFora = true
    if mudouCursor then
      cursor -1
      set mudouCursor = false
      set gMustUpdate = true
    end if
  end if

  if gMustUpdate then updateStage
end